﻿Public Class Inf_NaciMientoPrematuros
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            FG.culturaPaginas()
        End If
    End Sub

    Private Sub Muestra_detelleNac_normalesCnPrematuros()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el panel 
        P_NacidosNormalYprematuros.Visible = False



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFOrME_NacimientoPrematuroComparadoCnNormal_x_ANiO", param, "MuestraNatalidadNivelPAis-inf_natalidad")

        If Rs.RecordCount > 0 Then
            P_NacidosNormalYprematuros.Visible = True
        Else
            Exit Sub
        End If

        Img_NacidosNormalYprematuros.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.TRes_D, 490, 190, "Indice de nacimiento prematuro a nivel pais", Drawing.Color.Blue)


    End Sub

    Private Sub Detalle_nacimientoPRematuroNivelProvincia()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        '------seteo panel----------------------
        P_detelleNacidos_X_mes.Visible = False

        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFOrME_NacimientoPrematuro_Detalle_x_mes_x_Prov_x_ANiO", param, "MuestraNatalidadNivelPAis-inf_natalidad")

        If Rs.RecordCount > 0 Then
            P_detelleNacidos_X_mes.Visible = True
        Else
            Exit Sub
        End If


        GV_Datos.DataSource = FG.cargaUnDataTable(Rs)
        GV_Datos.DataBind()



    End Sub
    Private Sub MuestraPorcentajeDeNacimientoPRemturos_nivelPais()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        P_PorcentajeNacimiento_prematuro_AnivelPais.Visible = False

        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10

        Rs = Datos.TraerTodos("INFOrME_NacimientoPrematuro_Detalle_x_mes_NivelPais_x_ANiO", param, "MuestraPorcentajeDeNacimientoPRemturos_nivelPais-inf_nacimientoPrematuros")

        If Rs.RecordCount = 0 Then
            Exit Sub
        End If


        ' si llego hasta aca muestro el panel 
        P_PorcentajeNacimiento_prematuro_AnivelPais.Visible = True

        Img_porc_nacimientoPrematurosNivelPAis.ImageUrl = FG.DevuelveUrlGoogle_chart_Barras(Rs, TipoGraficoBarrasGoogle.veritical, 290, 200, "")






    End Sub




    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click
        FG.SacaCartelDeAViso(lbl_msjeAMostrar)

        'muestro el torta con la comparacion entre normal y prematuros 
        Muestra_detelleNac_normalesCnPrematuros()

        '----muestra grilla con el detalle por provincia
        Detalle_nacimientoPRematuroNivelProvincia()

        '---muestro los meses de gestacion a nivel pais 
        MuestraPorcentajeDeNacimientoPRemturos_nivelPais()


        If P_detelleNacidos_X_mes.Visible = False And P_NacidosNormalYprematuros.Visible = False Then
            FG.MuestraCartel("No hay datos para graficar", lbl_msjeAMostrar)
        End If
    End Sub
End Class